www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/NewsClass.asp
<!--#Include File="inc/Check_Sql.asp"--> <!--#include file="Inc/conn.asp"--> <!--#include file="Inc/config.asp" --> <!--#include file="inc/Skin_css.asp"--> <!--#include file="inc/Function.asp"--> <!-- #include file="Head.asp" --> <% BigClass=request("BigClass") SmallClass=request("SmallClass") %><body topmargin="0"> <table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="5" valign="top" bgcolor="#FFFFFF"></td> </tr> <tr> <td height="72" valign="top" bgcolor="#FFFFFF"><table width="746" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td class="tdbg_left" width="190" height="179" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <form name="form1" method="get" action="News_search.asp"> <tr> <td height="34" class="title_left"> <img src="Images/smallbook.jpg" width="10" height="10"> <font color="#000000">新 闻 搜 索</font></td> </tr> <tr> <td height="21"><input type="text" name="key" size="19" class="input"></td> </tr> <tr> <td height="21"><select name="otype" class="input"> <option value="title" selected class="input">新闻标题</option> <option value="msg" class="input">新闻内容</option> </select> <input type="submit" name="Submit" value="搜索" class="input"></td> </tr> <tr> <td height="5"></td> </tr> </form> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="28" align="center" bgcolor="#CCCCCC"> <div align="left"><a href="NewsClass.asp?BigClass=<%=BigClass%>"><font color="#000000"> <%=BigClass%></font></a></div></td> </tr> <% set rsSmallClass=server.CreateObject("adodb.recordset") rsSmallClass.open "Select * From SmallClass_New Where BigClassName='" & BigClass & "'",conn,1,1 if not(rsSmallClass.bof and rsSmallClass.eof) then do while not rsSmallClass.eof %> <tr onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#EFEFEF';" bgColor=#EFEFEF> <td height="28" bgcolor="#CCCCCC" > <div align="left"><a href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>"> </a><a href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>"> </a><a href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>"><%=rsSmallClass("SmallClassName")%></a></div></td> </tr> <% rsSmallClass.movenext loop end if rsSmallClass.close set rsSmallClass=nothing %> </table></td> <td width="6"></td> <td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="title_right" height="32"> <img src="Images/smallbook.jpg" width="10" height="10"> <a href="index.asp">首页</a>>><a href="NewsClass.asp?BigClass=<%=BigClass%>"><%=BigClass%></a></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if BigClass<>"" and SmallClass <>"" then sql="select * from Wygkcnnews where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc" rs.Open sql,conn,1,1 elseif BigClass<>"" then sql="select * from Wygkcnnews where BigClassName='"&BigClass&"' order by AddDate desc" rs.Open sql,conn,1,1 end if if rs.eof and rs.bof then response.Write("暂时没有记录") else %> <% rs.PageSize=20 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %> <tr> <td width="6%" height="24" align="center" ><img src="Img/arrow_6.gif" width="11" height="11"></td> <td width="65%" height="24" style="BORDER-bottom: #999999 1px dotted"> <% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %> <a href="shownews.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE") %></a> </td> <td width="29%" style="BORDER-bottom: #999999 1px dotted"><font color="#999999">[<%=FormatDateTime(RS("AddDate"),2)%>] (点击<font color="#ff0000"><%= RS("hits") %></font>) </font></td> </tr> <% rs.movenext if rs.eof then exit for next %> <tr valign="bottom"> <td height="50" colspan="3" align="center" > <form method=Post action="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=SmallClass%>"> <%if Page<2 then response.write "首页 上一页 " else response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=1>首页</a> " response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & Page-1 & ">上一页</a> " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & (page+1) & ">" response.write "下一页</a> <a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&SmallClass="&SmallClass&"&page="&rs.pagecount&">尾页</a>" end if response.write " 页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 " response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页" response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">" response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>" %> </form></td> </tr> <% end if rs.close set rs=nothing %> </table> </td> </tr> </table></td> </tr> </table></td> </tr> </table> <!--#include file="Inc/foot.asp"--> </body>